VecValueTemp=[2 3 7 8 9 10 12 14 19 20 22 23 24 184];
for n1=1:size(VecValueTemp,2)
    FilterFourthLevelEditorsCoAuthors(VecValueTemp(1,n1));
    FilterFourthLevelEditorsCoAuthors2(VecValueTemp(1,n1));
end